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; FACILITY: NETWORK ACP 


; ABSTRACT: 
; THIS MODULE IS USED TO SEND INFORMATIONAL MESSAGES TO THE NETWORK OPERATOR 


; ENVIRONMENT: 
; MODE = EXEC 


: AUTHOR: SCOTT G. DAVIS, CREATION DATE: 13-APR-1980 
: MODIFIED BY: 


v03-002 apeonot Alan D. Eldridge 19-Feb-1984 
Fix Linkage truncation errors. 


v001 TMHOO01 Tim Halvorsen 13-Apr-1982 
Rewrite. Remove obsolete code. 
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NE TOPCOM = OPERATOR COMMUNICATIONS 16-SEP-1984 01:27:1 AX/VMS Macro v04-00 Page 
voac008 DECLARATIONS ~$FE 382 3 $f 38 ENETACP. SREINETOPCOM.MAR; 1 . 3 
$8 -SBTTL DECLARATIONS 
1; INCLUDE FILES: 
$00 ‘ ’ SNOBDEF ; NETACP internal operator msg numbers 
000 4 OPCD<F ; OPCOM message format 
000 55 PCBDEF ; Process control block 
' 28 SPHDDEF ; Process header block 
00 58 ; 
$609 59 ; The messages sent by SSNDACC, S$SNDERR, and $SNDOPR consist of 
B88 60 ; a common header followed by the user specified message. The 
Bo 3 ; common header has the following format: 
0000 8 : «WORD <message type? 
0000 64 ; -WORD <reply mailbox channel #> 
0000 65 ; -QUAD <sender's privilege mask> 
0000 66 ; -LONG <sender's UIC> 
0000 67 ; -BLKB <sender's USERNAME. 12 bytes, blank filled> 
0000 68 ; ~BLKB <sender's ACCOUNT. 8 bytes, blank filled> 
0000 69 ; -BYTE <sender's base priority> 
0000 70 ; -BYTE <unused> 
0000 71 s 
00000026 0000 i SNDMSG_HDR = 38 
0000 7 
0000 74; 
0000 75 ; OWN STORAGE: 
0000 76 ; 
eeet °*! a -PSECT NET_PURE,NOWRT ,NOEXE 
72 61 74 73 20 74 65 6E 43 45 44 00" 0000 79 START_MSG: -ASCIC /DECnet starting/ 
abd BS 
74 75 68 73 $0 74 65 6E 43 45 44 00" 0010 80 SHUT_MSG: -ASCIC /DECnet shutting down/ 
6E 77 6F 64 20 67 6E 69 74 O0IC 
14 0010 
B8S2 81 
0025 82 
00000000 83 -PSECT NET_CODE,NOWRT,EXE 
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Woc050 NETWORK OPERATOR MESSAGE FORMATTING eS 7 83: 1:38 ENETACP. SREINETOPCOM.MAR; 1 ’ 
5 ad ~SBTTL NETWORK OPERATOR MESSAGE FORMATTING 
? ; FUNCTIONAL DESCRIPTION: 
it 8 3; NETSOPCOM = FORMAT AND SEND OPERATOR MESSAGE 
000 91 ; CALLING SEQUENCE: 
0000 35 ; 
0000 93 ; BSB NETSOPCOM 
0000 94 ; 
0000 $6 3; INPUT PARAMETERS: 
0 97 : RO = Message code (NDBSC_MSG_xxx) 
0000 98 ; . sl ie 
0000 99 ; SIDE EFFECTS: 
0000 100 ; 
0000 101; MESSAGE SENT TO NETWORK OPERATOR 
0000 196 : R1,R2 = destroyed 
0000 103 ;-- 
0000 104 
0000 105 NETSOPCOM:: 
0000 106 SDISPATCH RO,TYPE=B,<- 
0000 107 <NDB$C_MSG_START 10$>,- ; Starting network 
0000 108 <NDB$C"MSG-SHUT,20$>>° : Shutting down network 
05 4: 199 RSB ; If not recognized, ignore it 
51 QO000000°EF 9& 0009 £111 #108: MOVAB START_MSG,R1 ; Get startup message 
0 11. 0010 M6 BRB 
51 QOO00010°EF 9E boi§ 12 208: MOVAB SHUT_MSG,R1 ; Get shutdown message 
007C 8F BB 0019 115 50$: PUSHR #*M<R2,R3,R4,R5,R6> ; Save registers 
50 81 9A O001D 116 MOVZBL (R1)+,R0 ; Make descriptor of message text 
53 50 ef C1 0020 177 ADDL3 #SNDMSG_HDR+OPCSL_MS_TEXT,RO R3 ; Compute size of buffer needed 
2g C2 B05? 118 SUBL R3,SP ; Allocate space for OPCOM message 
5 5E DO 0027 119 MOVL SP,R3 ; Point to buffer 
7E 50 7D BeSe 139 mMOVa RO,-(SP) 3; Save descriptor of message text 
0020 156 ; Prepare to send a prnsepe to the OPCOM mailbox. We must use the kernel 
002D 125 ; mode routine EXESWRTMAILBOX rather than the $SNDOPR system service 
002D 124 ; because of some bad safety checks in the service which prevent it's use 
8 D 125 ; from kernel mode (it runs in EXEC mode, and makes sure that the buffer 
02D 1 § ; isn't “‘less than’’ the executive mode stack, and of course, calling the 
8 4 : 3; service from kernel mode means that it runs on the kernel stack instead). 
09 4 ' ; 3; Build common SNDMSG mailbox header 
83 0000'8F BO 002D 131 MOV 7117 guia INSERT MESAGE TYPE 
83 B4 032 1 ¢ CLRW (R3)+ INSERT REPLY MAILBOX CHANNEL NUMBER 
56 00000000'GF DO 0034 1 MOVL G*CTLSGL_PCB,R6 GET ADDRESS OF PCB 
038 134 ASSUME PHD$Q PRIVM 
83 66C 7D ; 135 MOVQ PCBSC_PHD(R6), (R3) : INSERT PRIVILEGE MASK 
83 00BC (6 D F 136 MOVL PCBSL OIC(R6) , (R3) : INSERT UIC 
63 Q0000000'°GF 14 0044 137 MOVC #20,G™CTL$T_USERNAME, (R35; INSERT USER NAME AND ACCOUNT NAME 
83 IF  2F 04c 1 8 SUBB PCBSB_PRIB(RG) ,#51 , (RS) +; INSERT BASE PRIORITY 
4 bes 173 CLRB (R5)+ ; CLEAR SPARE BYTE 
$33 141 ; Build OPCOM header 
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; Set address of message 

; Get address of OPCOM mat |box UCB 
; Send message to OPCOM mailbox 

; Deallocate message off stack 

: peesere registers 


GL OPRMBX ,R5 
WRTMAILBOX 


oR3,R4,R5,R6> 


50 8E& 7D va SP)+,RO ; Restore wy ft of message text 
ASSUME OPCS$B_MS_TARGET EQ orca, ats sohval> = 1 bytes of operator mask 
00004003 8F 0 VL 0 =RO-ROST! <OPCSH_NM 
PCSB_MS_TYPE(RS) : P Reauest type/opermask 
04 CLRL P MS nog My : D for message 
08 A3 | 0 ) ,OPC LiMS TEXT(R3S © j Copy text into OPCOM message 
4 3 tompu e size of message 
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NE TOPCOM - OPERATOR COMMUNICATIONS 1g s6e- 138% 6} 416 8 y 
Symbol table -SEP-1984 
CTLSGL_PCB eeeeeeee 8 8§6X 
CTL$T_OSERNAME eeeeeeee 8 6X 
EXESWRTMAILBOX eeeneree =X 
MSG$_OPRQST RRERRRER x 
NDBSC_MSG_SHUT = 00000002 
NDBSC “ASG_ START = 00 1 
NETSOPCOM™ 0 0 RG 03 
OPC$B_MS_TARGET = 88 B60 1 
OPCS$B_MS_ = 000 
OPC$L-MS_RQSTID = 0 000004 
OPCS$L"MS_TE = 000000 
PCSM_NM_NT = i Bs 
OPCS Ra Rast = 00 0 
CB$B_PRI = 0000002F 
PCBSL_PHD = 0000006C 
CBSL_UIC = 0000008C 
PHD$Q_PRIVMSK = 444444 
T_ASG 00000010 R 02 
SNDMSG_HDR 4444464 34 
START_ASG 00000000 R Oe 
SYS$GC_OPRMBX eeeeeeee X 0 
power eon eames em eeee + 
: ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 ( 0.) 00 ¢ OO.) NOPIC USR- CON . 1a 
SABS$ 4st ( 9 ») O1 ¢ ) NOPIC USR CON ABS LCL N 
NET_PURE 0000002 ( 37.) be ( ¢ ) NOPIC USR CON REL LCL 
NET_CODE 00000080 ( 128.) 03 (¢ ) NOPIC USR CON REL LCL 
a es 
! ;_Per formance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization ¢? 88:80 :00..8 00:00 :00.48 
Command processing 156 0:00:01.0 00:00:04.45 
Pass 1 238 88:80:08.2 00:00:08.65 
symbol table sort 0 00:00: 38 00:00:90.48 
Pass 2 48 7 :00.7 8889: 1.05 
S at Be iable output 4 :00: Bs :00:00.04 
Psect synopsis output 8:8 :00. 8860; 0 
Cross-reference output :00:00.0 O38 :00.0 
Assembler run totals 47 00:00:06.3 0:00:15.1 


g,yorking ssi Limit was 1200 pages 

$75 bytes (38 pages) of virtual memory were used to buffer _the intermediate pote. 
cose were 20 pages of symbol table space oh scared to hold 338 non-local ane 8 
157 source lines were read in Pass 1, producing 15 object records in Pass 
19 pages of virtual memory were used to define 17 macros. 
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OSHR NOEXE 
OSHR EXE 
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ot NOEXE NORD we NOVEC BYTE 
SHR EXE RD NOV 


RD NOURT NOVEC BYTE 
RD NOWRT NOVEC BYTE 
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! Macro Library statistics ! 


teow eens enw e wen cen eomowmeeace + 


Macro Library name Macros defined 
$ $DUA : PSHRLIBJNMA LIBRY.MLB;1 
“$ SHRLIBJEVC bee 
m} SpUA ITNETACP. OBJ J3NEFDRV. ALB; 
“$ $OUA = ENETACE 984 JNET.M ; 
3 MLB; é 
$ spUA revs ie ite: T.MLB;2 
TOTALS (all Libraries) Sg 


457 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:NETOPCOM/OBJ=0BJ$:NETOPCOM MSRC$:NETOPCOM/UPDATE=(ENHS$:NETOPCOM) +EXECML$/LIB+L18$:NET/LIB+LIB$:NETDRV/LIB+SHRLIBS:EVC 


SEp-198¢ 02:81:29 ENET 


0 V04-00 
NE TOPCOM. MAR; 1 


Page (3) 


<F 


CORPORATION 
PROPRIETARY 


DIGITAL EQUIPMENT 
CONFIDENTIAL. AND 


AH-BT13A-SE 
VAX/VMS V4.0 


0278 


